home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #6 / Amiga Plus CD - 2004 - No. 06.iso / AmigaPlus / Begleitmaterial / 50Tools / Grafik / PerfectPaint / rexx / general / PfPShell.rexx < prev    next >
OS/2 REXX Batch file  |  2001-03-23  |  524b  |  28 lines
  1. /* shell */
  2.  
  3.  
  4. options results
  5. parse ARG Port b
  6.     
  7. if ~open(s_con,'con:999/999/512/200/PerfectPaint shell/close/screen' Port) then exit
  8.  
  9. options failat 21
  10.  
  11. DO FOREVER
  12.    call writech s_con,Port'> '
  13.    s_inline=readln(s_con)
  14.    IF eof(s_con) then EXIT
  15.    parse upper var s_inline s_kwd s_line
  16.    IF s_inline~='' then DO
  17.            drop result
  18.       address value Port
  19.       ''s_inline
  20.       IF symbol('RESULT')='VAR' then DO
  21.                 IF result~="OKAY" then DO
  22.                call writeln s_con,'RESULT="'result'"'
  23.                 END
  24.       END
  25.    END
  26. END
  27.  
  28.